Imports AxIRTransOCX

Public Class Form1



Dim Remote = "tv sony"

' ================================ Initialisation ===============================

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim strserver As String

IRTrans.ServerIP = "localhost"

IRTrans.Connect()

End Sub

' ================================ Events ========================================

Private Sub IRTrans_Receive(ByVal sender As Object, ByVal e As AxIRTransOCX.__IRTrans_ReceiveEvent) Handles IRTrans.Receive

tb1.Text = "Command received"

tbCommand.Text = e.command

tbRemote.Text = e.remote

tbData.Text = e.data

End Sub

Private Sub IRTrans_Connected(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IRTrans.Connected

tb1.Text = "Connected"

End Sub

' ================================ Send buttons ====================================

Private Sub btTVONOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTVONOFF.Click

IRTrans.SendIR(Remote, "on/off")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

IRTrans.SendIR(Remote, "1")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

IRTrans.SendIR(Remote, "2")

End Sub

End Class

